home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / kyzeramo.lha / scroller.s < prev    next >
Text File  |  1992-09-03  |  524b  |  32 lines
  1.     movem.l    d3-d5/a0-a2,-(sp)
  2. wtblit    btst    #14,$dff002
  3.     bne.s    wtblit
  4.     move.l    d2,d3
  5.     mulu    #40,d3
  6.     add.l    d3,a1
  7.     move.l    #300,d3
  8.     sub.l    d2,d3
  9.     moveq.l    #0,d4
  10. nxtline    add.w    d0,d4
  11.     move.w    d4,d5
  12.     divu    d1,d5
  13.     cmp.w    d0,d5
  14.     bge.s    exit
  15.     ext.l    d5
  16.     mulu    #40,d5
  17.     move.l    a0,a2
  18.     add.l    d5,a2
  19.     move.l    (a2)+,(a1)+
  20.     move.l    (a2)+,(a1)+
  21.     move.l    (a2)+,(a1)+
  22.     move.l    (a2)+,(a1)+
  23.     move.l    (a2)+,(a1)+
  24.     move.l    (a2)+,(a1)+
  25.     move.l    (a2)+,(a1)+
  26.     move.l    (a2)+,(a1)+
  27.     move.l    (a2)+,(a1)+
  28.     move.l    (a2)+,(a1)+
  29.     dbra    d3,nxtline
  30. exit    movem.l    (sp)+,d3-d5/a0-a2
  31.     rts    
  32.